home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 January / 64er_Magazin_88-01_1988_Markt__Technik_de_Side_A.d64 / block change (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  402b  |  20 lines
  1. 2 s=1
  2. 5 inputa$:c$=left$(a$,1)
  3. 6 input"welche zahl";a
  4. 7 iflen(a$)=16then9
  5. 8 a$=a$+chr$(160):goto7
  6. 9 lo=int(a/256):hi=a-lo*256:printhi;lo
  7. 10 open 15,8,15,"i":open 2,8,2,"#"
  8. 20 print#15,"u1 2 0 18 "s"
  9. 30 t[178]t[170]1:[161]#2,z$:[139]z$[178]c$[167]70
  10. 40 [139]t[178]255[167]t[178]0:s[178]s[170]1:[137]20
  11. 50 [137]30
  12. 70 b$[178]"":b$[178]b$[170]c$:[129]t[178]1[164]15:[161]#2,z$:b$[178]b$[170]z$:[130]
  13. 80 [139]b$[178]a$[167][153]"gefunden":[137]100
  14. 90 [137]30
  15. 100 [129]y[178]1[164]9 :[161]#2,z$:[130]y
  16. 110 f$[178][199](hi)[170][199](lo)
  17. 115 [152]2,f$
  18. 120 [152]15,"u2 2 0 18 "s"
  19. 200 close2:close15
  20.